﻿Imports BUS
Imports DTO
Public Class ThemMonHoc

    Private Sub btnthem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnthem.Click
        Dim _MHdto As New CMonHocDTO()
        _MHdto.TenMonHoc = txtmonhoc.Text
        Dim _bus As New CMonHocBUS()

        If _bus.ThemMonHoc(_MHdto) > 0 Then
            MessageBox.Show("Them Mon Hoc Thanh Cong")
        Else
            MessageBox.Show("Them Mon Hoc That Bai")
        End If

    End Sub

    Private Sub btnthoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnthoat.Click
        Me.Close()
    End Sub
End Class